home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / lblcs.arc / CRT_HOME.ASM < prev    next >
Assembly Source File  |  1980-01-01  |  941b  |  61 lines
  1.  
  2.  
  3. ;---------------------------------------------------------------
  4. ;
  5. ; name        crt_home - home cursor on given page
  6. ;
  7. ; synopsis    VOID crt_home(page)
  8. ;            int    page;
  9. ;
  10. ; description    sets cursor to 0,0 on selected page.  This routine 
  11. ;        differs slightly from the CI-C86 function with the
  12. ;        same name - the CIC86 function always assumes page 0.
  13. ;
  14. ; notes        There is basically no difference between doing a
  15. ;        crt_home and a crt_goto to row 0, col 0. 
  16. ;
  17. ;     
  18. ;--------------------------------------------------------------
  19.  
  20.     include    dos.mac
  21.  
  22. video    equ    10h        ; video interrupt number
  23.  
  24.  
  25.     IF    LPROG
  26. X    EQU    6        ;OFFSET OF ARGUMENTS
  27.     ELSE
  28. X    EQU    4        ;OFFSET OF ARGUMENTS
  29.     ENDIF
  30.  
  31.     PSEG
  32.  
  33.  
  34.     PUBLIC    crt_home
  35.  
  36.  
  37.     IF    LPROG
  38. crt_home    PROC    FAR
  39.     ELSE
  40. crt_home    PROC    NEAR
  41.     ENDIF
  42.  
  43.  
  44.     push    bp
  45.     mov    bp,sp
  46.     mov    bh,[bp+x]    ; get page #        
  47.     mov    ax,0200h
  48.     xor    dx,dx
  49.     int    video
  50.     pop    bp
  51.     ret
  52.  
  53.  
  54. crt_home    ENDP
  55.  
  56.  
  57.     endps
  58.     end
  59.  
  60.  
  61.